﻿Public Class ClsItemOfTreeListCell
    'item for treelist cell value
#Region "Attributes"
#Region "Private attributes"
    Private MoValue As Object 'value
    Private MoType As Type 'type of object
#End Region
#End Region
#Region "Constructors"
    Sub New(ByVal IoValue As Object, ByVal IoType As Type)
        MoValue = IoValue
        MoType = IoType
    End Sub
#End Region
#Region "Properties"
#Region "Public properties"
    Public Property Value() As Object
        Get
            Return MoValue
        End Get
        Set(ByVal IoValue As Object)
            MoValue = IoValue
        End Set
    End Property
    Public ReadOnly Property Type() As Type
        Get
            Return MoType
        End Get
    End Property
#End Region
#End Region

End Class
